home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Tele / Pete Johnson / mehit 3.0.b15<source>.cpt / mehitGlobals.p < prev    next >
Text File  |  1991-06-23  |  2KB  |  68 lines
  1. unit Globals;
  2.  
  3. {    Created June 29, 1989, to organize global variables            }
  4.  
  5. interface
  6.  
  7. const
  8.     NULL = chr(0);
  9.     TAB = chr(9);
  10.     ENDLINE = chr(13);
  11.     SPACE = chr(32);
  12.     BULLET = '•';
  13.     DAYSECS = 86400;        {    Seconds in 24 hours    }
  14.     MySignature = longint('mhtb');
  15.  
  16. type
  17.     BackOpts = (Normal, Kill, Purge, StuffNone, StuffFaster, StuffFast, StuffOptimal, StuffBestGuess, StuffBetter);
  18.     StuffOpts = (NoStuff, DoNone, DoFaster, DoFast, DoOptimal, DoBestGuess, DoBetter);
  19.     DefaultStuff = record
  20.             DNextLaunch, DBackupPath, DTextPath: str255;
  21.             BUTextPath, MaxBUSize: str255;
  22.             WriteToTabby, FullLog, BriefLog, LogErrors: boolean;
  23.             Undelete, Renumber: boolean;
  24.             DBackupMode: BackOpts;
  25.             ProcessUL, DeleteByLevel: boolean;
  26.             SkipDeletes, DoChangeLevel, KillOld: boolean;
  27.             LogDeletes, KillOldOneCalls, UseVetFlag: boolean;
  28.             SetVetFlag, SortUserLog, ZeroMin: boolean;
  29.             DeleteLevel, CheckLevel, ChangeLevel: integer;
  30.             ChangeToLevel, ChangeToMin, InactiveDays: integer;
  31.             OneCallDays, VetCalls, VetFlag: integer;
  32.             TextType: packed array[1..4] of char;
  33.             ResetCL, DoCLADays, ResetTL, DoTLADays: boolean;
  34.             CLDays, CLADays, TLDays, TLADays: integer;
  35.             DoCLAStuff, DoTLAStuff: StuffOpts;
  36.             NewLimit, NewAge: integer;
  37.             NewBU: boolean;
  38.         end;
  39.     DefaultStuffPtr = ^DefaultStuff;
  40.     MyByte = byte;
  41.     OneString = STR255;
  42.     OneStringPtr = ^OneString;
  43.     OneStringHdl = ^OneStringPtr;
  44.  
  45.     Section = record
  46.             Name: string;
  47.             Limit: longint;
  48.             Age: longint;
  49.             Number: integer;
  50.             Backup: boolean
  51.         end;
  52.     SectionPtr = ^Section;
  53.     SectionHandle = ^SectionPtr;
  54.  
  55. var
  56.     DefaultsPtr: DefaultStuffPtr;
  57.     Sections: array[1..255] of SectionHandle;
  58.     BeginTotal, EndTotal, DeleteTotal, SurplusTotal, TooOldTotal: integer;
  59.     internalResFile, externalResFile, ErrorCode, TLogRef, DefaultVol: integer;
  60.     DateString, TimeString, mehitVersion: STR255;
  61.     Defaults, BigLogName, BriefLogName, MsgErrLogName, OrphanLogName: STR255;
  62.     MESSAGESPath, TextDefaults: STR255;
  63.     ErrorFlag, newExternalFile: boolean;
  64.     StatusRect, MsgNoRect: rect;
  65.  
  66. implementation
  67.  
  68. end.        {    Globals unit    }